﻿Imports MSNLNamespaceMgrLib
Public Class Form1
    ' create the search manager
    Dim WdsManager As SearchManager
    ' create the catalogue manager
    Dim WdsCatManager As ISearchCatalogManager
    ' create the query helper
    Dim WdsQuery As ISearchQueryHelper
    Public Sub SetupWds()
        WdsManager = New SearchManager
        WdsCatManager = WdsManager.GetCatalog("SystemIndex")
        WdsQuery = WdsCatManager.GetQueryHelper
    End Sub
End Class
